home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / gui / eagui30.lha / EAGUI / Install < prev    next >
Encoding:
Text File  |  1994-12-01  |  2.2 KB  |  77 lines
  1. ;
  2. ; $RCSfile: Install $
  3. ; $Revision: 3.0 $
  4. ; $Date: 1994/11/28 22:13:21 $
  5. ;
  6.  
  7. ; copy the library...
  8. (copylib
  9.     (prompt "Copying EAGUI.library...")
  10.     (source "EAGUI.library")
  11.     (dest "LIBS:")
  12.     (help @copylib-help)
  13.     (confirm)
  14. )
  15.  
  16. ; report the directory to installer...
  17. (set @default-dest "LIBS:")
  18.  
  19. ; copy the EAGUI directory if the user wants to do this...
  20. (if
  21.     (askbool
  22.         (prompt "Do you want to install the EAGUI related files?")
  23.         (help "Confirming this question will allow you to install the EAGUI related files "
  24.             "to a directory of your choice. These files are needed if you want to use "
  25.             "EAGUI in your own programs. Headers, stubs, documentation and examples "
  26.             "will all be copied.")
  27.     )
  28.     (
  29.         (set eaguidir
  30.             (askdir
  31.                 (prompt "In what directory would you like to install the EAGUI related files?")
  32.                 (help "You should select a directory in which the EAGUI related files will be installed. "
  33.                     "The files will be copied directly to this directory: "
  34.                     "no subdirectory will be made!")
  35.                 (default "SYS:EAGUI")
  36.             )
  37.         )
  38.         (copyfiles
  39.             (prompt "Copying files...")
  40.             (help @copyfiles-help)
  41.             (source "")
  42.             (choices "EAGUI.guide" "Complete.guide.info" "Complete.guide" "Tutorial.guide" "Tutorial_1.pic" "EAGUI.fd" "EAGUI.h" "EAGUI_macros.h" "EAGUI_lib.c" "EAGUI_protos.h" "example.c" "example" "pages.c" "pages" "Textfield.c")
  43.             (dest eaguidir)
  44.         )
  45.     )
  46. )
  47.  
  48. ; copy the Modula 2 stuff if the user wants to do this...
  49. (if
  50.     (askbool
  51.         (prompt "Do you want to install the EAGUI related files for use with Modula 2?")
  52.         (help "Confirming this question will allow you to install the EAGUI related files for use with Modula 2 "
  53.             "to a directory of your choice. These files are needed if you want to use "
  54.             "EAGUI in your own Modula 2 programs.")
  55.     )
  56.     (
  57.         (set eaguim2dir
  58.             (askdir
  59.                 (prompt "In what directory would you like to install the EAGUI related files for use with Modula 2?")
  60.                 (help "You should select a directory in which the EAGUI related files for use with Modula 2 will be installed. "
  61.                     "The files will be copied directly to this directory: "
  62.                     "no subdirectory will be made!")
  63.                 (default "SYS:EAGUI/Modula2")
  64.             )
  65.         )
  66.         (copyfiles
  67.             (prompt "Copying files...")
  68.             (help @copyfiles-help)
  69.             (source "Modula2")
  70.             (all)
  71.             (dest eaguim2dir)
  72.         )
  73.     )
  74. )
  75.  
  76. (exit)
  77.